home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Meso.cpt / Mesopotamia 0.9 / card_16079.txt < prev    next >
Text File  |  1987-12-05  |  2KB  |  66 lines
  1. -- card: 16079 from stack: in.9
  2. -- bmap block id: 15113
  3. -- flags: 0000
  4. -- background id: 11179
  5. -- name: cun6
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=462 top=306 right=340 bottom=508
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 24317 / 24317
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Go first
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set lockscreen to true
  23.   go card "tline"
  24.   hide background field "one"
  25.   hide background field "two"
  26.   hide background field "three"
  27.   hide background field "four"
  28.   set lockscreen to false
  29.   visual effect dissolve
  30.  
  31.   go to card "tline"
  32. end mouseUp
  33.  
  34.  
  35.  
  36.  
  37. -- part 2 (button)
  38. -- low flags: 00
  39. -- high flags: 0000
  40. -- rect: left=425 top=305 right=341 bottom=460
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: right dogear
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   -- this script handles a diagonally divided button, intended to be
  52.   --  a right dogear
  53.   put (item 1 of the clickLoc) - (item 1 of the rect of the target) into x
  54.   put (item 4 of the rect of the target) - (item 2 of the clickLoc) into y
  55.   if (x < y) then              -- click is in upper left
  56.     visual effect wipe left
  57.     play "click"
  58.     go card "cun1"
  59.   else
  60.     visual effect wipe right
  61.     play "click"
  62.     go to previous card
  63.   end if
  64. end mouseUp
  65.  
  66.